home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 July / EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso / earcd / grafica / artpro_install / install < prev    next >
Text File  |  1997-11-10  |  6KB  |  313 lines
  1. ; ArtPRO installations Script
  2. ; © 1997 Defect Softworks All rights reserved.
  3. ; May only be distributed within the ArtPRO package
  4. ; 
  5. ; Written by Frank Pagels /DFT
  6. ; Date: 10/Nov/97
  7.  
  8. (set falsekickmsg    "You need at least OS 2.04 to run ArtPRO!")    ;!!!
  9.  
  10. (set OS_VER (/ (getversion) 65536) )
  11.  
  12. (if(< OS_VER 37)
  13.   (abort falsekickmsg)
  14. )
  15.  
  16. (set cpu (database "cpu"))    ;check CPU Type
  17.  
  18. (if (or (= cpu 68020) (= cpu 68030)) (set #cpu 0))
  19. (if (= cpu 68040) (set #cpu 1))
  20. (if (> (exists ("libs:68060.library")) 0) (set #cpu 2) )
  21.  
  22. (set #doclang 0)
  23. ;(if (= @language "deutsch") (set #doclang 1))
  24.  
  25. (set progdir1
  26.  (askdir (prompt "In wich drawer should ArtPRO be installed?\n (a drawer will be created)")
  27.    (help @askdir-help)
  28.    (DEFAULT @default-dest)))
  29.  
  30. (    (makedir (tackon progdir1 "ArtPRO")) 
  31.     (copyfiles (source "Icons/ArtPRO.info")
  32.     (dest progdir1))
  33.  
  34.     (set progdir (tackon progdir1 "ArtPRO"))
  35. )
  36. ;--------------------------------------------------------------------------
  37. (
  38.     (copyfiles (source "ArtPRO")
  39.     (dest progdir))
  40.  
  41.     (copyfiles (source "installdata/ArtPRO.info")    ;!!!
  42.     (dest progdir))
  43.  
  44. )
  45.  
  46. ;------ Install Loader -------
  47. (
  48.     (makedir (tackon progdir "ALoaders"))
  49.     (copyfiles (source "Aloaders")
  50.     (dest (tackon progdir "ALoaders"))
  51.     (all))
  52. )
  53.  
  54. ;------ Install Saver --------
  55. (
  56.     (makedir (tackon progdir "ASavers"))
  57.     (copyfiles (source "ASavers")
  58.            (dest (tackon progdir "ASavers"))
  59.            (all)
  60.     )
  61.  
  62. )
  63.  
  64. ;------ Install Operator --------
  65. (
  66.     (makedir (tackon progdir "AOperators"))
  67.     (copyfiles (source "AOperators")
  68.            (dest (tackon progdir "AOperators"))
  69.            (all)
  70.     )
  71.  
  72. )
  73.  
  74. ;----- Copy needed Librarys 
  75.  
  76.     (copylib
  77.     (prompt "Copy ReqTools.library")
  78.     (help @copylib-help)
  79.     (source "libs/reqtools.library")
  80.     (dest "Libs:")
  81.     (confirm)
  82.     )
  83.  
  84.     
  85.     (Set #WhatLib
  86.     (cat  "Which version of the render.library do you want to install now ?"))
  87.  
  88.     (set InstallLib
  89.         (askchoice
  90.             (prompt #WhatLib)
  91.             (help @askoptions-help)
  92.             (choices
  93.                 "020"        ;Bit 0
  94.                 "040"        ;Bit 1
  95.                 "060")        ;Bit 2
  96.             (default #cpu)
  97.         )
  98.     )
  99.    
  100. (
  101.     (if (= InstallLib 0)
  102.  
  103.        (copylib 
  104.            (prompt "Copy Render.library")
  105.         (help @copylib-help)
  106.              (source "libs/render.library_68020")
  107.         (dest "Libs:")
  108.         (newname "render.library")
  109.         (confirm)
  110.        )
  111.     )
  112.  
  113.  
  114.  
  115.     (if (= InstallLib 1)
  116.  
  117.        (copylib 
  118.            (prompt "Copy Render.library")
  119.         (help @copylib-help)
  120.              (source "libs/render.library_68040")
  121.         (dest "Libs:")
  122.         (newname "render.library")
  123.         (confirm)
  124.        )
  125.     )
  126.          
  127.  
  128.  
  129.     (if (= InstallLib 2)
  130.  
  131.        (copylib 
  132.            (prompt "Copy Render.library")
  133.         (help @copylib-help)
  134.              (source "libs/render.library_68060")
  135.         (dest "Libs:")
  136.         (newname "render.library")
  137.         (confirm)
  138.        )
  139.     )
  140.     
  141. )
  142.  
  143. ;----------------------------------------------------------------
  144.     (Set #WhatLib
  145.     (cat  "Which version of the guigfx.library do you want to install now ?"))
  146.  
  147.     (set InstallLib
  148.         (askchoice
  149.             (prompt #WhatLib)
  150.             (help @askoptions-help)
  151.             (choices
  152.                 "020"        ;Bit 0
  153.                 "040"        ;Bit 1
  154.                 "060"        ;Bit 2
  155.                 "020+FPU")    ;Bit 3
  156.             (default #cpu)
  157.         )
  158.     )
  159.    
  160. (
  161.     (if (= InstallLib 0)
  162.  
  163.        (copylib 
  164.            (prompt "Copy Guigfx.library")
  165.         (help @copylib-help)
  166.              (source "libs/guigfx.library")
  167.         (dest "Libs:")
  168.         (newname "guigfx.library")
  169.         (confirm)
  170.        )
  171.     )
  172.  
  173.  
  174.     (if (= InstallLib 1)
  175.  
  176.        (copylib 
  177.            (prompt "Copy Guigfx.library")
  178.         (help @copylib-help)
  179.              (source "libs/guigfx.library_68040")
  180.         (dest "Libs:")
  181.         (newname "guigfx.library")
  182.         (confirm)
  183.        )
  184.     )
  185.          
  186.  
  187.     (if (= InstallLib 2)
  188.  
  189.        (copylib 
  190.            (prompt "Copy Guigfx.library")
  191.         (help @copylib-help)
  192.              (source "libs/guigfx.library_68060")
  193.         (dest "Libs:")
  194.         (newname "guigfx.library")
  195.         (confirm)
  196.        )
  197.     )
  198.  
  199.     (if (= InstallLib 3)
  200.  
  201.        (copylib 
  202.            (prompt "Copy Guigfx.library")
  203.         (help @copylib-help)
  204.              (source "libs/guigfx.library_FPU")
  205.         (dest "Libs:")
  206.         (newname "guigfx.library")
  207.         (confirm)
  208.        )
  209.     )
  210.     
  211. )
  212.  
  213. ;----- copy Dokumentation ------
  214.  
  215. (
  216.     (Set #Whatdoc
  217.     (cat  "What ArtPRO documentation would you like to install?\n"))
  218.  
  219.     (set Installdoc
  220.         (askchoice
  221.             (prompt #Whatdoc)
  222.             (help @askoptions-help)
  223.             (choices
  224.                 "English")        ;Bit 0
  225.             ;    "German")        ;Bit 1
  226.             (default #doclang)
  227.         )
  228.     )
  229.    
  230.     (set docdir
  231.         (askdir (prompt "Select a drawer for the Guide:")
  232.         (help @askdir-help)
  233.         (DEFAULT progdir)))
  234.  
  235.  
  236.     (if (= Installdoc 0)
  237.         (
  238.             (copyfiles (source "docs/english/ArtPRO.guide")        ;!!!
  239.                    (dest docdir))
  240.  
  241.             (copyfiles (source "installdata/ArtPRO.guide.info")    ;!!!
  242.                    (dest docdir))
  243.         )
  244.     )
  245.  
  246. ;    (if (= Installdoc 1)
  247. ;
  248. ;       (copyfiles (source "docs/deutsch/ArtPRO.guide")
  249. ;        (dest docdir))
  250. ;
  251. ;       (copyfiles (source "docs/deutsch/ArtPRO.guide.info")
  252. ;        (dest docdir))
  253. ;
  254. ;    )
  255.  
  256.  
  257. )
  258.  
  259. ;---- Kopiere Icons ----
  260.  
  261. (
  262.     (makedir (tackon progdir "Icons"))
  263.     (copyfiles (source "Icons")
  264.         (dest (tackon progdir "Icons"))
  265.         (all))
  266.     (copyfiles (source "installdata/Icons.info")    ;!!!
  267.         (dest progdir))
  268.  
  269. )
  270.  
  271.  
  272. (
  273.   (set appdir
  274.   (askdir (prompt "In wich drawer should the external AppIcon be installed?")
  275.    (help @askdir-help)
  276.    (DEFAULT progdir)))
  277.  
  278.      (copyfiles (source "Installdata/AppIcon.info")
  279.         (dest appdir)
  280.     )
  281.         (Tooltype (dest (tackon progdir "ArtPRO"))
  282.         (Settooltype "APPICON" (tackon appdir "AppIcon"))
  283.     )
  284. )
  285.  
  286. (set @default-dest progdir)
  287.  
  288.  
  289. (copyfiles (source "Orderform.doc")
  290.     (dest progdir)
  291. )
  292.  
  293. (copyfiles (source "Orderform.dok")
  294.     (dest progdir)
  295. )
  296.  
  297. (makedir "ENV:ArtPRO")
  298. (makedir "ENVARC:ArtPRO")
  299.  
  300.  
  301. (Set #Whatdoc
  302.     ( cat "Now installing the Jpeg Codec by\n Cristoph Feck. It is needed for\n the Jpeg loader/saver.\n")
  303. )
  304. (Message   #whatdoc)
  305.                 
  306. (set @execute-dir "jpeg-cdc_dist")
  307. (run (safe) "sys:utilities/installer SCRIPT install APPNAME Jpeg_Codec")
  308.  
  309. (exit "Note: ArtPRO is Shareware!\n\n"
  310.       "Render.library and Guigfx.library\n"
  311.       "are (C) by Timm Müller!\n\n"
  312.       "Enjoy this!") 
  313.